home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Biz / swood / FW_Scripts.lha / FW_Scripts / ComplexShape / ObjectLoad.rexx < prev    next >
OS/2 REXX Batch file  |  2004-08-29  |  514b  |  22 lines
  1. /* FinalWriter AREXX macro             */
  2. /* $VER: ObjectLoad 1.2              */
  3. /* Reload objects saved with ObjectSave.rexx */
  4.  
  5. Options Results
  6.  
  7. ADDRESS COMMAND 'RequestFile >ENV:File Title="Select object to load" Pattern="#?" NOICONS Pubscreen="FinalWriterPubScreen"'
  8. IF rc ~= 0 THEN EXIT
  9.  
  10. IF OPEN("Env", "Env:File", "R") THEN DO
  11.    filename = READLN("Env")
  12.    CALL CLOSE("Env")
  13. END
  14.  
  15. filename = STRIP(filename,'B','"')
  16.  
  17. IF EXISTS(filename) THEN DO
  18.    ADDRESS COMMAND 'Copy $file CLIPS:0 CLONE'
  19.    GraphicTool
  20.    Paste
  21. END
  22.